LDARGS 1
CALL (1, "L1")
STOP
FLabel (1, "L1")
INCSP 1
GETBP
OFFSET 1
ADD
CSTI 0
STI
INCSP -1
GOTO "L3"
Label "L2"
GETBP
OFFSET 1
ADD
LDI
CSTI 1
EQ
IFZERO "L5"
GETBP
OFFSET 1
ADD
GETBP
OFFSET 1
ADD
LDI
CSTI 1
ADD
STI
INCSP -1
INCSP 0
GOTO "L6"
Label "L5"
INCSP 0
Label "L6"
GETBP
OFFSET 1
ADD
LDI
PRINTI
INCSP -1
GOTO "L4"
GETBP
OFFSET 1
ADD
GETBP
OFFSET 1
ADD
LDI
CSTI 1
ADD
STI
INCSP -1
INCSP 0
Label "L3"
GETBP
OFFSET 1
ADD
LDI
CSTI 3
LT
IFNZRO "L2"
Label "L4"
INCSP -1
RET 0